* Table 4 
local table "Table4"
use "./data/publications.dta", clear
createvarspub
qui putexcel set "./tables/tables.xlsx", sheet("`table'") modify
keep if year>1999
keep if ///
journal==1 | /// AER 
journal==109 | /// RES 
journal==60 | /// JPE
journal==10 | /// Ectrca
journal==108  /*QJE*/ 
gen jid=0
replace jid=1 if journal==1
replace jid=2 if journal==10
replace jid=3 if journal==60
replace jid=4 if journal==108
replace jid=5 if journal==109
qui putexcel A1=("Journal")
qui putexcel A2=("AER")
qui putexcel A3=("Ectrca")
qui putexcel A4=("JPE")
qui putexcel A5=("QJE")
qui putexcel A6=("RES")
qui putexcel B1=("Total")
qui putexcel C1=("Port Aff")
qui putexcel D1=("BdP")
qui putexcel E1=("Nova")
qui putexcel F1=("UCP")
qui putexcel G1=("U Lisboa")
qui putexcel H1=("U Porto")
qui putexcel I1=("U Minho")
qui putexcel J1=("U Évora")
* Total articles
forval i=1/5 {
unique article_id if jid==`i'
local row=`i'+1
qui putexcel B`row'=(`r(unique)')
}
* 
local coln=67
foreach var of varlist national tbp tunova tucp  ///
tulisboa tuporto tuminho tuevora {
forval i=1/5 {
unique article_id if jid==`i' & `var'==1
local col=char(`coln')
local row=`i'+1
qui putexcel `col'`row'=(`r(unique)')
}
local ++coln
}
